% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
%
%            File:  plotres8b10b.m
%     Description:  
%       
%         Created:  07.03.2013 16:20:14
%          Author:  Aleksey Golovchenko (lexgolovchenko@gmail.com)
%    Organization:  St.Petersburg State Polytecnical Universisy
%
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

function plotres8b10b()
    
    %         iter, berr_num
    params = [10000, 1];

    for i = 1:length(params(:,1))
       
        iter = params(i, 1);
        berr = params(i, 2);
        
        fprintf(1, '----------------------------------------------------\n');
        fprintf(1, 'Тест %d \n', i);
        fprintf(1, '----------------------------------------------------\n');
        fprintf(1, '* Число итераций - %d\n', iter);
        fprintf(1, '* Число битовых ошибок в кодовом слове - %d\n\n', berr);
                                
        [err_detect, berr_undetect, burst_err] = test8b10b(iter, berr, 0);
        
        fprintf(1, 'Результаты:\n');
        fprintf(1, '* Обнаружено ошибок - %d (%.2f %%) \n', err_detect, 100*err_detect/iter);
        fprintf(1, '* Распределение необнаруженных ошибок по искаженным битам в байте - \n\t');
        fprintf(1, '%d ', berr_undetect);
        
        fprintf(1, '* Распределение необнаруженных ошибок по длине "пакета ошибок" - \n\t');
        fprintf(1, '%d ', burst_err);
        fprintf(1, '\n\n');
        
        %
        % Визуализация результатов для необнаруженных ошибок
        %
        figure(2*i+1);        
        set(gcf, 'name', 'Распределение необнаруженных ошибок по числу битовых ошибок');
        bar(1:1:8,berr_undetect, 'r');                
        
        figure(2*i+2);  
        set(gcf, 'name', 'Распределение необнаруженных ошибок по длине пакетной ошибки');
        bar(1:1:8,burst_err, 'g');
        
    end
end